PC World 2005 June/PCWorld_2005-06_cd.bin/software/topware/dreamcom/dream552.exe/{app}/DreamCom.chm/demo1.txt

Text File | 2003-10-03 | 1KB | 35 lines

{ Skript to branu Bramka.org }

procedure StatInit;
begin
// PovinnΘ parametry:
  Version := 1.3; // Φφslo verze skriptu
  MsgSizes := '160'; //velikosti jednotiv²ch zprßv odd∞len²ch st°ednφkem, tedy v tomto p°φpad∞ jedna zprßva
  Countries := 'PL'; // onzaΦenφ do jak²ch zemφ lze odesφlat, INT je mezinßrodnφ skript, jinak zkratky zemφ ze staty.dat
// NepovinnΘ parametry:
  Prefixes := '501;603'; //seznam prefix∙, kterΘ podporuje danß brßna
end;

procedure Send(index: integer);
begin
  case index of
    0: begin // prvnφ fßze odesφlßnφ
      GetPage(
        'http://www.bramka.org/sms/index.php', // URL sms brßny
        'Msg_Loading');         // hlaska do okna udßlostφ
    end;
    1: begin //druhß fßze odesφlßnφ
      AddResult('SMS zosta│ poprawnie wys│any.', 'Msg_Sent', Success); // pokud se na strßnce nachßzφ °et∞zec 'byla odesl', v okn∞ udßlostφ se zobrazφ hlßÜka o odeslßnφ zprßvy a odesφlßnφ je ·sp∞Ün∞ ukonΦeno (Success)
      PostPage(
        'http://www.bramka.org/sms/send.php'
        'strPhoneNumber='+Prefix+PhoneNP+'&strText='+Message+'&Submit=Wys│at', //seznam nßzv∙ a hodnot polφ
        'Msg_Sending'); // hlßÜka do okna udßlostφ
    end;
  end;
end;

case ParamStr(0) of // vlastnφ vykonßvßnφ skriptu
  'STATINIT' : StatInit; // povinnΘ - volß se statickß inicializace prom∞nn²ch
  'SEND' : Send(Phase); // povinnΘ - volß se procedura Send
end;